FpSpread1.BorderCollapse = FarPoint.Web.Spread.BorderCollapse.Separate
FpSpread1.ActiveSheetView.AllowColumnMove = True
FpSpread1.ActiveSheetView.GroupBarVisible = True
FpSpread1.ActiveSheetView.AllowGroup = True
Dim gi As New FarPoint.Web.Spread.GroupInfo
gi.BackColor = Color.Yellow
Dim gi2 As New FarPoint.Web.Spread.GroupInfo
gi2.BackColor = Color.Green
Dim gic As New FarPoint.Web.Spread.GroupInfoCollection()
gic.AddRange(New FarPoint.Web.Spread.GroupInfo() {gi, gi2})
Dim arr(4) As FarPoint.Web.Spread.GroupInfo
gic.CopyTo(CType(arr, Array), 0)
FpSpread1.ActiveSheetView.GroupInfos.Add(arr(0))